perm filename RDBIN[206,LSP] blob sn#098910 filedate 1974-04-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "HUM"
C00004 ENDMK
C⊗;
BEGIN "HUM"
INTEGER CHAR,BRCHAR,EOF,FLAG;
REQUIRE "⊂⊃<>" DELIMITERS;
DEFINE CRLF = ⊂ ('15 & '12) ⊃;

OPEN(0,"DSK",8,2,0,10,BRCHAR,EOF);
WHILE TRUE DO
  BEGIN
  OUTSTR(CRLF & "FILE: ");
  LOOKUP(0,INCHWL,FLAG);
  IF FLAG THEN OUTSTR("  FILE NOT FOUND") ELSE DONE
  END;

WHILE TRUE DO
  BEGIN
  OUTSTR(CVOS(WORDIN(0)) & CRLF);
  END
END "HUM"